PROGRAM greet
IMPLICIT NONE
CHARACTER(LEN=20) :: name
PRINT *,'Enter your name:'
READ(*,*),name
IF (name == 'soren' .OR. name == 'Soren') THEN
	PRINT *,'Hello ',name
ELSE 
	PRINT *,'Who are you'
END IF
END PROGRAM

